<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.11</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>2948</cardID>
<listID>4890</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>320</height>
</cardSize>
<script>-- changeStackFont, by Bill Underwood, 1/5/92 (ver1.11 - 2/22/92)on openStacksend mouseUp to cd btn "what it is"set the name of bg btn id 29 to short name of this stack-- get the font info and update the first card:put the textFont of bg fld "text" into userFontput the textSize of bg fld "text" into userSizeput the textStyle of bg fld "text" into userStyleput "Text above is:" && userSize && "pt." && userStyle && userFont ¬into bg fld "styleInfo" of first cdput "Text above is:" && userSize && "pt." && userStyle && userFont ¬into bg fld "styleInfo" of second cdput "Other fields are:" && "14, 12 and 10 pt" && userFont into bg fld "fields"put the textFont of bg btn "home" into userFontput "Buttons are:" && "12 pt" && userFont into bg fld "buttons" of first cdput "Buttons are:" && "12 pt" && userFont into bg fld "buttons" of second cdend openStack-- ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞-- Copy the scripts below to your stack to-- make changeStackFont work for you:-- ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on changeStackFont-- please retain this byline notice.-- changeStackFont, by Bill Underwood, 1/5/92global userFont-- answer "Change this stack or another stack's font?" with "Another Stack" or "This one"answer "Change this stack's button font, field font, or both?" with "Buttons" or ¬"Fields" or "Both"if it is "Buttons" thenchangeButtonFontelseif it is "fields" thenchangeFieldFontelseif it is "both" thenchangeAllFontsend ifend ifend ifend changeStackFonton changeButtonFontglobal userFontif userFont is empty thenexit changeButtonFontelseput "Changing this stack's button font to" && userFont & ". Please wait..."go firstset cursor to watchlock screenrepeat with counter = 1 to the number of cds in this stack-- •first, change card buttons:repeat with n = 1 to the number of cd btnsset the textFont of cd btn n to userFontend repeat-- •second, change bg buttons:repeat with n = 1 to the number of bg btnsset the textFont of bg btn n to userFontend repeat-- •third, update the info field:put "Buttons are:" && "12 pt " && userFont into bg fld "buttons"-- •fourth, do it all over again until all cards are scanned:go nextend repeatend ifunlock screenbeep -- wake 'em upanswer "Button font changed to" && userFont & "!"put ""hide msgend changeButtonFonton changeFieldFontglobal userFontif userFont is empty thenexit changeFieldFontelseput "Changing this stack's field font to" && userFont & ". Please wait..."go firstset cursor to watchlock screenrepeat with counter = 1 to the number of cds in this stack-- •first, change card fields:repeat with n = 1 to the number of cd fldsset the textFont of cd fld n to userFontend repeat-- •second, change bg fields:repeat with n = 1 to the number of bg fldsset the textFont of bg fld n to userFontend repeat-- •third, do it all over again until all cards are scanned:go nextend repeatend ifUpdateOtherFieldInfoupdateTextInfounlock screenbeep -- wake 'em upanswer "Field font changed to" && userFont & "!"put ""hide msgend changeFieldFonton changeAllFontsglobal userFontif userFont is empty thenexit changeAllFontselseput "Changing all fields and buttons to" && userFont & ". Please wait..."go first -- in case a menu command is used from other than first cdset cursor to watchlock screenrepeat with counter = 1 to the number of cds in this stack-- •first, change all card fields:repeat with n = 1 to the number of cd fldsset the textFont of cd fld n to userFontend repeat-- •second, change all bg fields:repeat with n = 1 to the number of bg fldsset the textFont of bg fld n to userFontend repeat-- •third, change card buttons:repeat with n = 1 to the number of cd btnsset the textFont of cd btn n to userFontend repeat-- •fourth, change bg buttons:repeat with n = 1 to the number of bg btnsset the textFont of bg btn n to userFontend repeat-- •fifth, do it all over again until all cards are scanned:go nextend repeatend ifput "Buttons are:" && "12 pt " && userFont into bg fld "buttons" of first cdput "Buttons are:" && "12 pt " && userFont into bg fld "buttons" of second cdput "Other fields are" && "14, 12 and 10 pt " && userFont into bg fld "fields"UpdateOtherFieldInfoupdateTextInfounlock screenbeep -- wake 'em upanswer "Stack font changed to " & userFont & "!"put ""hide msgend changeAllFontson changeTextSizeglobal userSizeask "Change field on the right to what text size?"put it into userSizeif userSize is empty thenexit changeTextSizeelseset cursor to watchput "Changing field 'textSize' to " & userSize & " pt. Please wait..."lock screenset the textSize of bg fld "text" to userSize--updateTextInfoput the textSize of bg fld "text" into userSizeput the textStyle of bg fld "text" into userStyleput the textFont of bg fld "text" into userFontupdateTextInfounlock screenput ""hide msgbeepanswer "Font size in cd field 'textSize' changed to " ¬& userSize & " pt.!" with "OK"end ifend changeTextSizeon changeTextStyleglobal userStyleanswer "Change field's text style to what?" with "Italic" or "Plain" or "Bold"put it into userStyleif userStyle is empty thenexit changeTextStyleelseset cursor to watchput "Changing field to " & userStyle & " text. Please wait..."lock screenset the textStyle of bg fld "text" to userStyleupdateTextInfo-- put "Text Style is:" && userStyle into bg fld styleInfo of first cd-- put "Text Style is:" && userStyle into bg fld styleInfo of second cdunlock screenput ""hide msgbeepanswer "Font style changed to" && userStyle & "." with "OK"end ifend changeTextStyleon updateTextInfoput the textSize of bg fld "text" into userSizeput the textStyle of bg fld "text" into userStyleput the textFont of bg fld "text" into userFontput "Text above is:" && userSize && "pt." && userStyle && userFont ¬into bg fld "styleInfo" of first cdput "Text above is:" && userSize && "pt." && userStyle && userFont ¬into bg fld "styleInfo" of second cdend updateTextInfoon updateOtherFieldInfoput the textFont of bg fld "text" into userFontput "Other fields are:" && "14, 12 and 10 pt" && userFont ¬into bg fld "fields" of first cdput "Other fields are:" && "14, 12 and 10 pt" && userFont ¬into bg fld "fields" of second cdend updateOtherFieldInfoon closeStacklock screenput "" into bg fld "example"-- (the example field gets refilled by a mouseUp-- sent to bg btn "what it is" on openstack)unlock screen with visual dissolve-- this is my auto stack compactor:if the freeSize of this stack ≥ 5000 thenput round(the freesize of this stack/1024)¬& "K freeSize • NOW COMPACTING… ∞ Bill's AutoCompacter v2.04 ∞"doMenu "compact stack"put ""end ifhide msgend closeStack</script>
